home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / P / Palet.cpt / Palette XFCN / card_6105.txt < prev    next >
Text File  |  1988-09-20  |  7KB  |  262 lines
  1. -- card: 6105 from stack: in
  2. -- bmap block id: 6528
  3. -- flags: 0000
  4. -- background id: 4114
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=227 top=286 right=332 bottom=282
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 29114 / 29114
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Return
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual effect iris close
  23.   go to card id 4434
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: 8004
  31. -- rect: left=82 top=37 right=59 bottom=234
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: View 'doMenu' Script
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   if visible of card field "doMenu Script" is true then
  43.     hide card field "doMenu Script"
  44.   else
  45.     show card field "doMenu Script"
  46.   end if
  47. end mouseUp
  48.  
  49.  
  50.  
  51. -- part 3 (button)
  52. -- low flags: 00
  53. -- high flags: 8004
  54. -- rect: left=297 top=37 right=59 bottom=422
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: View 'idle' Script
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   if visible of card field "idle Script" is true then
  66.     hide card field "idle Script"
  67.   else
  68.     show card field "idle Script"
  69.   end if
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 4 (field)
  75. -- low flags: 81
  76. -- high flags: 2007
  77. -- rect: left=2 top=60 right=259 bottom=268
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 0
  81. -- font id: 3
  82. -- text size: 9
  83. -- style flags: 0
  84. -- line height: 12
  85. -- part name: doMenu Script
  86. ----- HyperTalk script -----
  87. on mouseUp
  88.   hide card field "doMenu Script"
  89. end mouseUp
  90.  
  91.  
  92. -- part 6 (field)
  93. -- low flags: 81
  94. -- high flags: 2007
  95. -- rect: left=250 top=60 right=259 bottom=508
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 9
  101. -- style flags: 0
  102. -- line height: 12
  103. -- part name: idle Script
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   hide card field "idle Script"
  107. end mouseUp
  108.  
  109.  
  110. -- part 9 (button)
  111. -- low flags: 00
  112. -- high flags: 8004
  113. -- rect: left=169 top=260 right=281 bottom=333
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 1
  117. -- font id: 0
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: View 'ctrl-tab' Script
  122. ----- HyperTalk script -----
  123. on mouseUp
  124.   if visible of card field "Control Script" is true then
  125.     hide card field "Control Script"
  126.   else
  127.     show card field "Control Script"
  128.   end if
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 10 (field)
  134. -- low flags: 81
  135. -- high flags: 2007
  136. -- rect: left=106 top=111 right=259 bottom=415
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 0
  140. -- font id: 3
  141. -- text size: 9
  142. -- style flags: 0
  143. -- line height: 12
  144. -- part name: Control Script
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   hide card field "Control Script"
  148. end mouseUp
  149.  
  150.  
  151. -- part contents for card part 6
  152. ----- text -----
  153. -- the "update" mode returns any item
  154. -- chosen from torn off Palette into "pickedOne"
  155. -- to be passed to doMenu handler
  156.  
  157. on idle
  158.   global pickedOne
  159.   put Palette("Update") into temp
  160.   if pickedOne is not empty then doMenu pickedOne
  161.   put empty into pickedOne
  162.   pass idle
  163. end idle
  164.  
  165. -- part contents for card part 4
  166. ----- text -----
  167. -- responds to choices A-R, and S from 
  168. -- Palette pull-down Menu
  169.  
  170. on doMenu which
  171.   if which is "S" then
  172.    -- script of your choice
  173.   else
  174.     if which is "A" then
  175.      -- script of your choice
  176.     else
  177.       if which is "B" then
  178.        -- script of your choice
  179.       else
  180.         if which is "C" then
  181.         -- script of your choice
  182.         else
  183.           if which is "D" then
  184.           -- script of your choice
  185.           else
  186.             if which is "E" then
  187.             -- script of your choice
  188.             else
  189.               if which is "F" then
  190.               -- script of your choice
  191.               else
  192.                 if which is "G" then
  193.                 -- script of your choice
  194.                 else
  195.                   if which is "H" then
  196.                   -- script of your choice
  197.                   else
  198.                     if which is "I" then
  199.                     -- script of your choice
  200.                     else
  201.                       if which is "J" then
  202.                       -- script of your choice
  203.                       else
  204.                         if which is "K" then
  205.                         -- script of your choice
  206.                         else
  207.                           if which is "L" then
  208.                           -- script of your choice
  209.                           else
  210.                             if which is "M" then
  211.                             -- script of your choice
  212.                             else
  213.                               if which is "N" then
  214.                               -- script of your choice
  215.                               else
  216.                                 if which is "O" then
  217.                                 -- script of your choice
  218.                                 else
  219.                                   if which is "P" then 
  220.                                   -- script of your choice
  221.                                   else
  222.                                     if which is "Q" then
  223.                                     -- script of your choice
  224.                                     else
  225.                                       if which is "R" then
  226.                                       -- script of your choice
  227.                                       else
  228.                                         pass doMenu
  229.                                       end if
  230.                                     end if
  231.                                   end if
  232.                                 end if
  233.                               end if
  234.                             end if
  235.                           end if
  236.                         end if
  237.                       end if
  238.                     end if
  239.                   end if
  240.                 end if
  241.               end if
  242.             end if
  243.           end if
  244.         end if
  245.       end if
  246.     end if
  247.   end if
  248. end doMenu
  249.  
  250.  
  251. -- part contents for card part 10
  252. ----- text -----
  253. -- a little known type of handler to intercept
  254. -- control key hits. This gets ASCII 9 (tab key).
  255. -- change to another combo for < Mac SE
  256.  
  257. on controlKey which
  258.   if which is 9 then
  259.     put Palette("Toggle") into temp
  260.   end if
  261.   pass controlKey
  262. end controlKey